home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1995 November / EnigmA AMIGA RUN 02 (1995)(G.R. Edizioni)(IT)[!][issue 1995-11][Skylink CD].iso / earcd / util / arcer / xdm20.lha / xdm / gui / DMx_GUI next >
Text File  |  1995-09-29  |  4KB  |  191 lines
  1. .bra {
  2. .ket }
  3.  
  4. ; $VER: DMx GUI v1.0 (29.9.95)
  5.  
  6. Cd >ENV:dmxorigcd
  7. Set dmxcd "$dmxorigcd"
  8.  
  9. If NOT EXISTS C:DMS
  10.     Set dmxerror "dms"
  11.     Skip errorout
  12. EndIf
  13.  
  14. If NOT EXISTS C:xDM_CLI
  15.     Set dmxerror "xdm"
  16.     Skip errorout
  17. EndIf
  18.  
  19. If NOT EXISTS ENV:xdmsd
  20.     If NOT EXISTS ENVARC:xdmsd
  21.         Set xdmsd RAM:
  22.     Else
  23.         Copy >NIL: ENVARC:xdmsd TO ENV:
  24.     EndIf
  25. EndIf
  26.  
  27. If NOT EXISTS ENV:xdmdd
  28.     If NOT EXISTS ENVARC:xdmdd
  29.         Set xdmdd RAM:
  30.     Else
  31.         Copy >NIL: ENVARC:xdmdd TO ENV:
  32.     EndIf
  33. EndIf
  34.  
  35. FailAt 21
  36. LAB begin
  37. RequestFile >ENV:dmxdmsfile DRAWER "$xdmsd" PATTERN "#?.dms" TITLE "Select DMS File to Convert" NOICONS
  38.  
  39. If FAIL
  40.     Skip getout
  41. EndIf
  42.  
  43. LAB selxdmfile
  44. RequestFile >ENV:dmxxdmfile DRAWER "$xdmdd" PATTERN "#?.(dms|xdm)" TITLE "Select Destination xDM File" NOICONS
  45.  
  46. If FAIL
  47.     Skip begin BACK
  48. EndIf
  49.  
  50. FailAt 20
  51. LAB seldrive
  52. RequestChoice >ENV:dmxdmssel "DMx v1.0 - The DMS to xDM Converter" "Select Drive For Temporary Unpack" "DF0:" "DF1:" "DF2:" "DF3:" "RAD:" "BACK" "QUIT"
  53.  
  54. If $dmxdmssel EQ "0"
  55.     Skip getout
  56. EndIf
  57.  
  58. If $dmxdmssel EQ "6"
  59.     Skip selxdmfile BACK
  60. EndIf
  61.  
  62. Eval >ENV:dmxdrive $dmxdmssel-1 LFORMAT "Df%n:"
  63. LAB seltracks
  64. RequestChoice >ENV:dmxtracks "DMx v1.0 - The DMS to xDM Converter" "Compress Which Tracks?" "All Tracks" "All AmigaDOS Tracks" "Certain Tracks" "BACK" "QUIT"
  65.  
  66. If $dmxtracks EQ "0"
  67.     Skip getout
  68. EndIf
  69.  
  70. If $dmxtracks EQ "4"
  71.     Skip seldrive BACK
  72. EndIf
  73.  
  74. If $dmxtracks EQ "3"
  75.     Echo "Enter start track: " NOLINE
  76.     Set >NIL: dmxstarttrack ?
  77.     Echo "Enter end track  : " NOLINE
  78.     Set >NIL: dmxendtrack ?
  79. EndIf
  80.  
  81. RequestChoice >ENV:dmxversion "DMx v1.0 - The DMS to xDM Converter" "Choose Special Mode (if any)" "None" "Low Memory" "BACK" "QUIT"
  82.  
  83. If $dmxversion EQ "0"
  84.     Skip getout
  85. EndIf
  86.  
  87. If $dmxversion EQ "3"
  88.     Skip seltracks BACK
  89. EndIf
  90.  
  91. If $dmxversion EQ "2"
  92.     If NOT EXISTS ENV:xdm
  93.         Set dmxerror "lowmem"
  94.         Skip errorout
  95.     EndIf
  96.     If NOT EXISTS ENV:xdmlzx
  97.         Set dmxerror "lowmem"
  98.         Skip errorout
  99.     EndIf
  100.     Set dmxmode "lowmem"
  101. EndIf
  102.  
  103. If $dmxdmssel EQ "5"
  104.     Assign >NIL: RAD: EXISTS
  105.     If WARN
  106.         Echo "Mounting RAD:"
  107.         Mount >NIL: RAD:
  108.     EndIf
  109.     Set dmxdrive "RAD:"
  110. EndIf
  111.  
  112. DMS WRITE $dmxdmsfile TO $dmxdrive NOTEXT
  113.  
  114. If $dmxtracks EQ "1"
  115.     If $dmxmode EQ "lowmem"
  116.         xDM_CLI A $dmxdrive $dmxxdmfile TRACKS all MODE lowmem
  117.     Else
  118.         xDM_CLI A $dmxdrive $dmxxdmfile TRACKS all
  119.     EndIf
  120. EndIf
  121.  
  122. If $dmxtracks EQ "2"
  123.     If $dmxmode EQ "lowmem"
  124.         xDM_CLI A $dmxdrive $dmxxdmfile MODE lowmem
  125.     Else
  126.         xDM_CLI A $dmxdrive $dmxxdmfile
  127.     EndIf
  128. EndIf
  129.  
  130. If $dmxtracks EQ "3"
  131.     If $dmxmode EQ "lowmem"
  132.         xDM_CLI A $dmxdrive $dmxxdmfile TRACKS some START $dmxstarttrack END $dmxendtrack MODE lowmem
  133.     Else
  134.         xDM_CLI A $dmxdrive $dmxxdmfile TRACKS some START $dmxstarttrack END $dmxendtrack
  135.     EndIf
  136. EndIf
  137.  
  138. Set dmxxdmfile2 $dmxxdmfile.xdm
  139. List >ENV:dmxdmsfilesize $dmxdmsfile LFORMAT %L
  140. List >ENV:dmxxdmfilesize "$dmxxdmfile2" LFORMAT %L
  141. Echo "*nOriginal DMS Filesize    :  *e[1;32m$dmxdmsfilesize*e[0m  bytes"
  142. Echo "Destination xDM Filesize :  *e[1;32m$dmxxdmfilesize*e[0m  bytes"
  143. Eval >ENV:dmxsaving $dmxdmsfilesize-$dmxxdmfilesize
  144. Echo "*nA saving of              :  *e[1;32m$dmxsaving*e[0m  bytes"
  145. Skip getout
  146.  
  147. LAB errorout
  148.  
  149. If $dmxerror EQ "dms"
  150.     Echo "Sorry, but I cannot find *"DMS*" in your C: directory."
  151.     Echo "Please install DMx or *"DMS*" again."
  152. EndIf
  153.  
  154. If $dmxerror EQ "xdm"
  155.     Echo "Sorry, but I cannot find *"xDM_CLI*" in your C: directory."
  156.     Echo "Please install DMx or *"xDM*" again."
  157. EndIf
  158.  
  159. If $dmxerror EQ "lowmem"
  160.     Echo "*nSorry, you have selected a mode which suggests you have a low memory"
  161.     Echo "situation.  However, you do not have the low-memory variable *"xdmlzx*" set"
  162.     Echo "in your ENV: or ENVARC: directories.  Please refer to the documentation or"
  163.     Echo "re-install xDM, this time setting the *"xdmlzx*" low-memory variable to a"
  164.     Echo "location somewhere on a harddrive partition with at least 1mb free.*n"
  165. EndIf
  166.  
  167. Cd ENV:
  168. Delete >NIL: dmxorigcd dmxdmsfile dmxxdmfile dmxdmssel dmxdrive dmxtracks dmxversion dmxdmsfilesize dmxxdmfilesize dmxsaving
  169. Cd "$dmxcd"
  170. UnSet dmxcd
  171. UnSet dmxerror
  172. UnSet dmxstarttrack
  173. UnSet dmxendtrack
  174. UnSet dmxmode
  175. UnSet dmxdrive
  176. UnSet dmxxdmfile2
  177. FailAt 21
  178. Quit 20
  179.  
  180. LAB getout
  181. Cd ENV:
  182. Delete >NIL: dmxorigcd dmxdmsfile dmxxdmfile dmxdmssel dmxdrive dmxtracks dmxversion dmxdmsfilesize dmxxdmfilesize dmxsaving
  183. Cd "$dmxcd"
  184. UnSet dmxcd
  185. UnSet dmxerror
  186. UnSet dmxstarttrack
  187. UnSet dmxendtrack
  188. UnSet dmxmode
  189. UnSet dmxdrive
  190. UnSet dmxxdmfile2
  191.